SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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UPT rr ta 15 

UPT HANDLER 
PENDENT UNIBUS ADAPTER INITIALIZATION 
RRUPT DISPATCHER 
IALIZATION 
P NITIALIZE MULTI-PORT MEMORY 
136 MULTI-PORT MEMORY ADAPTER 
ST HANDLER 
ABILITY TO INTERESTED PORTS 
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ADPSUB790 = ADAPTER SUBROUTINES FOR VAX 11/990"  16¢SEP=19 AX/VMS Macro 04-00 p 1 
1042000 Feel bRe Beibeice PSHCYES Saeca yoseoe «=| Peer Od, 


«NOSHOW CONDITIONALS 


«TITLE ADPSUB790 = ADAPTER SUBROUTINES FOR VAX 11/790 


-IDENT ‘v04-000' 


ARR ARAAAASARALALALELELAL ALLELES E ASRS TERE SEES EERE ER EERE SE EEE EES SEES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** 

® e 
** oa 
** & 
** * 
*® ® 
# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. + 
* a 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
;* CORPORATION. . 
** * 
** * 
*® z 
: ® 
**® ® 
*® . 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SoOoooooooooooooooooo 


SOOCOOCOOCSOOCOOOOOOSOOOOOOOOOSOOSO 
CQOCCOCOSSSOOCOCOSCSOSOSOSOOO OOOO OOOOOOOSOOOOoOO 


PRRSAASLAAALALALASALASALAAAE SESE EES ESSE EEE EE ERE EERE REE E RE EASE REESE CARER REESE 
Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
during system initialization (rather than Linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
Author: Kerbey T. Altmann Creation date: 30-Oct-1982 
Modification history: 
v03-007 TCMO0002 Trudy C. Matthews aoe 
Include more 780-specific code for the 11/790 sin of 
this routine. 
v03-006 i rg} Peter Lieberwirth e- Apr r=1 
ADP$L_SHB properly again: v03-004 ASSUM d 4 field 


a o a cértain constant off ; t, and a change to the ADP 
moved it. Note - this is a 780 change only. 
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v03-005 KDM0081 Kathleen D. Morse 13-Sep-1983 
Create version for Micro-VAX I. 
V03-004 ROW0196 Ralph 0. Weber 


lp 27-J 
Correct INISMPMADP ee the ADPSL_SHB is saeeactin ug Se 


vb.=000 
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- ADAPTER SUBROUTINES FOR VAX 11/990" 


"BSE b=] obs Sarbeies LeYSLOR. SReTRDPSOB HAR; 1 
to zero. 
Be ee eee iaictetiontin te ton te ne 


V03-002 ROW0142 Ralph 0. Weber 23-NOV-198 8¢ 
Correct JMP in ayl tioert memory interrupt Heneteh ng code 
prototype, MPMINTD, to a JSB. MASINT expects to receive 
control via a JSB. 


v03-001 TCM0001 Trudy C. Matt 8-Nov~-1982 
initialize field ADPSL CAVECTOR® in INISMPMADP. 
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- 74 SYSLOA. SRC JADPSUB. MAR: 1 

00000001 8 ; C780_LIKE = 1 

; 

H 3; MACRO LIBRARY CALLS 

1 § SADPDEF 3; Define ADP offsets. 

110 SCRBDEF 3; Define CRB offsets. 

111 SOCDEF 3; Define AT codes. 

116 SODBDEF 3; Define poe ot peete. 

11 SDDTDEF 3 Define DDT offsets. 

114 SDYNDEF 3; Define rte structure type codes. 

0 115 SIDBDEF 3; Define pserryet dispatcher offsets. 

38 138 SMBADEF 3; Define MASSBUS registers. 

8 11 SMCHKDEF 3; Define aera yn check masks. 
118 SMPMDEF 3; Define multi “sort memory. 
0 119 SNCOTDEF 3; Define nexus eee ce types. 

B08 120 SPRDEF 3; Define IPR numbers. 

000 121 SPTEDEF ; Define Page Table Entry bits 

3 BSA ¢ SRPBDEF 3; Define Restart Parameter Block fields. 
0 1 SSSDEF 3; Define s fxstee 9 service codes. 

000 124 SUBADEF ; Define UBA register offsets. 
9000 125 SUBIDEF j bet tne UNIBUS interconnect 
44 1 § ; register offsets. 

000 +1 SUCBDEF : Define unit control block. 
0000 128 VADE 3; Define virtual eddress fields. 
B85 } 9 SVECDEF : Define vec offsets. 
$000 1 ; SCEBDEF 3; COMMON EVENT BLOCK 
44 1 SFKBDEF ; FORK BLOCK 
0000 134 SIPLDEF 3; INTERRUPT PRIORITY LEVELS 
444 135 SPRIDEF 3 PRIORITY INCREMENT DEFINITIONS 

BOS 136 SPRQDEF 3; INTER-PROCESSOR REQUEST 
000 137 SRSNDEF ; RCE ER DEFINITIONS 
Boo 138 SSHBDEF 3; SHARED MEMORY CONTROL BLOCK 

3 179 SSHODEF ; SHARED MEMORY DATAPAGE 
000 145 

0000000 146 -PSECT SYSLOA,LONG 


eH” 


SooOooooooo 


SOSCOSOCOOSOSOSSOS 


— 
tm 
=z 


SDMDMDoORRRRRR RRR RRR 


2 
R VAX 11/490 16-SEP-1984 00:58: AX/VM 
NDLER oe et 4 90: 3b 88 
.SBTTL CISINT - CI INTERRUPT HANDLER 
; CISINT = Cl INTERRUPT HANDLER 
THIS MODULE IS A DUMMY C132 INTERRU 
UNTIL THE REAL C1 DRIVER (PADRIVER) 
; A DUMMY C132 CONTROLLER INITIALIZAT 
: INPUTS: 
THE STACK ON ENTRY IS AS FOLLOWS: 
ADDRESS OF IDB ADDRESS 
SAVED R2 = RS 
INTERRUPT PC 
INTERRUPT PSL 


mF 
Cc 
ROROPOROROTOR) 8 es 
mc 
z2- 
“mn 


xm 
>o 


S$ Macro V04-00 Page $ 
SYSLOA.SRCJADPSUB.MAR; 1 (3) 


o 

wero 
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OUTPUTS: 

; NONE 

: SIDE EFFECTS: 

INTERRUPTS ARE DISABLED ON THE C132 
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; SPAREGDEF -- Define offsets to CI registers and fields in the registers. 


SDEFINI PAREG 
SDEF PA_CNF .BLKL 1 


Configuration register 


VIELD PA_CNF,0,<- ; Define config register fields: 
ZADPTYP,8,A>,- 3; Adapter type code 
<PFD,,M>,=- 3; Powerfail disable 
<TDEAD, ,M>,- : Transmit dead 
<TFAIL, .M>,- 3; Transmit fail 
5>,- 3 unused bits 
<CRD; .M>, = : CRD on port init'd read 
<RDS, ,M>,- : RDS on port init'd read 
<CXTER, A>, : SBI error confirm 
<RDTO, ,M>,- : Port init'd read timeout on SBI 
<CSTMO, .M>,=- 3 Port init'd command xmit timeout 
<,1>,° ; 1 unused bit 
<PuP; .M>,- : Adapter power up 
SPUN, oP 6” ; Adaptor power down 


SDEF PA_PMC .BLKL 1 
VIELD PA_PMC,0,<- 


Pert maint control/status register 


Define register fields: 


DODOOOOOOOOO OOO OOO 09 09 09 09 69 09 09 09 69 SI NIN NSIS SNIP AAA AAAAAOUMIUIMIVIVIVIVIVILNE OED 
PAL @ OOOO NE WIN OOO NAME WIN O OO NOAWIN OOO NOU EW OUOONOULS WOOO -0 


2MIN,,M>,= : Maint initialized 
<MTD,,M>,- : Maint timer disable 
<MIE,,M>,- ; Maint interrupt enable 


mc 
z2-— 
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OR VAX 11/890° 
ANDLER 


<MIF ,M>,- 
> 
SDEFEND PAREG 


“‘MOVL «= CS 
MOVL ae * eR as), R4 


MOVQ (SP)s, 


MOVL §#PA_PMC_M_MIN,PA_PMC(R4) 


AX/VMS Macro V04-00 Page 3 
SYSLOA.SRCJADPSUB.MAR; 1 (3) 


Maint intterupt flag 


GET ADDRESS OF IDB 

GET ADDRESS OF FIRST CSR 
CLEAR POWER UP 

CLEAR POWER DOWN 

SET MAINTENCE INITIALIZE 
RESTORE REGISTERS 


; CONTROLLER INITIALIZATION 
; CONTROLLER SHUTDOWN 


; SET MAINTENCE INITIALIZE 


ADP 
Pse 


on vax 11/990) 1 -SEP=1984 00: AX/VMS Macro V04-00 P ee 
ANDLER mI Pe ee SYSLOA. SRCJADPSUB.MAR; 1 ose) 


re .SBTTL DRSINT = DR INTERRUPT HANDLER 
; DRSINT = DR INTERRUPT HANDLER 


ADPSUB790 = ADAPTER $ 
V DRSINT = DR 
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THIS mooULe Sy 5 Be Y DR32_INTERRUPT HANDLER WHICH IS USED 
UNTIL _T REAL DRIVER (XFDRIVER) IS LOADED. IT ALSO CONTAINS 
A DUMMY NRS CONTROLLER INITIALIZATION ENTRY POINT. 


INPUTS: 
THE STACK ON ENTRY IS AS FOLLOWS: 


COOOCGCOCOCCOCCOOCOOCOCOOCOoe 


POPOIPOPIPOPIPIPINIPIPIPUNINIPINIPIPITRNY 


O(SP) ADDRESS OF IDB ADDRESS 
4(SP) = 16(SP) SAVED R2 = RS 
ab ed INTERRUPT PC 
4(SP) INTERRUPT PSL 
OUTPUTS: 
NONE 


SIDE EFFECTS: 
INTERRUPTS ARE DISABLED ON THE DR32 


SIDS DS DEDEDE DE UU BB 


Ornrorofrononoronopopnopony 


PORS REPRE EPP EPP PPP PPP PP PEP PPE 


SDOooooooooooooo 
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; : DR32 DCR REGISTER DEFINITIONS 
0 SDEFINI DR 
0 SDEF  DR_DCR Ag 3 : DR32 CONTROL REGISTER 
000 7 _VIELD OR apse 0,<- 
0004 27 TYP, é>. - : ADAPTER ogvPe 
0004 27% +" ERR’ : 153 fin 
0004 275 <Ibé TOS, > - ; 1D Tne-out STATUS 
0004 : > RESE 
0004 27 <ivieRe, M>.~ ; 1D1 ERR 
0004 27 <ID1T0S.2>, > 1D1 FReCOUT STATUS 
0006 27 <RDS,,M>,=— : READ DATA SUBSTITUTE 
00 4 0 <CRD,.M>,- : CORRECTED READ DATA 
; <DCRABT..M>.= > DCR NBD RT INTERRUPT 
4 <PKTINT..M>.= : PACKET INTERR UPT 
0004 4 <INTENB, .M>,- : INTERRUPT ENABLE 
004 5 <,1>,- : RESERVED 
4 6 <PuR -UP, .M>.= + ADAPTER POWER UP 
004 <PUR"DN,.M>.= > ADAPTER POWER DOWN 
0 4 cERTIBT (A>, - + EXTERNAL ABOR 
4 > RESERVED 
4 30 : <InPbEP, 6>,- > IMPLEMENTATION DEPENDENT BITS 
4 3 
‘ $5 ; DCR CONTROL FIELD A CODES (USED WHEN WRITING TO DCR) 
00000100 4 295 DCR_K_CLRPWRUP=*Xx100 


ADAPTER SUBRO Tings 
RSINT = DR INT 
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FOR VAX 19n$EF AX/VMS Macro 2 yos00 Page 7 
RRUPT HANDLER - SYSLOA. SRCJADPSUB.MAR; 1 (4) 
DCR_K_CLRPWRON=*X2 ; CLEAR POWER DOWN 
DCR-K-CLREXTABT=*X : CLEAR EXTERNAL ABORT 
DCRIK“CLRABTINT=*X4 : CLEAR ABORT INTERRUPT 
DCR-K-CLRINTENB=*X5 : CLEAR INTERRUPT ENABLE 
DCR-K-SETINTENB=*X6 : SET INTERRUPT ENABLE 
DCR-K~CLRHLT=*X700 : CLEAR WALT 
; DCR CONTROL FIELD 8 CODES (USED WHEN WRITING TO DCR) 
DCR_K_CLRCRD=*x100 : CLEAR CRD 
DCR-K“SETEXTABT=°X : SET EXTERNAL ABORT 
DCROK-CLRPKTINT=*X + CLEAR PACKET INTERRUPT 
DCR-K-RESET=*x t RESET 
DCRIK-SETOSQTST=*Xx5000 : SET OSEQ TEST 
DCR“K agtRosatst=*x6000 : CLEAR OSEQ TEST 
SDEFERD D 
DRSINT:: 
MOVL a(SP)+,R3 : GET ADDRESS OF IDB 
MOVL  IDBSL rEsRcas) R4 > GET ADDRESS OF FIRST CSR 
MOVL  #ODCR_R_CLRPWRUP, > CLEAR POWER 
MOVL  #DCRTK =ELAPURDN, *DR-D : CLEAR POWER COUN 
MOVG (SP)F,R : RESTORE REGISTERS 
MOV (SP) +._R4 
REI 
DRSINITIAL:: : CONTROLLER INITIALIZATION 
DRSSHUTDOWN: : : CONTROLLER SHUTDOWN 


RSB 


MOVZWL #DCR_K_RESET, (R4) 


RESET DR (R4 POINTS TO CSR) 


- 


NOU 


-ALIGN LONG 


0 : NOTE: UBASUNEXINT is the Latel in the EXEC that is a JMP @#UBA_UNEXINT. 
: This seeming gual city is gesetery since there is code that must 
: refer to the EXEC address from within the SYSLOA image. 


404 UBA_UNEXINT: : ; UNEXPECTED INTERRUPT CODE 


Rae 
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ADPSUB790 = ADAPTER SUBROUTINES FOR VAX 11/590 16-SEP-1984 00:58: AX/VMS Macro v04-00 Pp | 
vO% UBARINIT IAT = CPU-DEPENDENT UNIBUS ADAPT mith y 30:38:98 YOYSLOA. SRETADPSUB MAR: 1 7 | 
4 i = .SBTTL UBASINITIAL = CPU-DEPENDENT UNIBUS ADAPTER INITIALIZATION 
4 33 3 UBASINITIAL = UNIBUS ADAPTER INITIALIZATION 
4 41 : THIS ROUTINE IS CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
4 4g : A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF UNIBUS ADAPTERS. 
0% 43 ; (POWERFAIL AND INITADP) 
43 43 : INPUTS: 
rk} 23 : R2 = ADDRESS OF ADAPTER CONTROL BLOCK (11/780 AND 11/750) 
4 4g 3 R4 = ADDRESS OF UNIBUS ADAPTER CONFIGURATION STATUS REGISTER (11/780) 
004 20 ; ALL INTERRUPTS ARE LOCKED OUT. 
0048 3g : OUTPUTS: 
0045 34 : THE UNIBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 
0045 356° 
0045 37 UBASINITIAL:: ;UNIBUS ADAPTER INITIALIZATION 
0045 60 3 
64 00 v2 0045 361 MCOML #0,UBASL_CSR(R4) TCLEAR ALL ADAPTER CONFIGURATION ERRORS 
08 Ad = 00 be 0048 6¢ MCOML #0,UBASL~SR(R4) [CLEAR ALL ADAPTER STATUS BITS 
50 0256 C2 3C 004c 36 MOVZWL ADPS$W_UMR_DIS(R2),RO — :PICK UP THE NUMBER OF UMR'S TO DISABLE 
50 50 16 78 0051 364 HL UBASY_CR-MRDSB-4,R0,RO :DIVIDE BY 16 THEN SHIFT INTO Post TION 
c9 0055 365 BISL3 #UBASMCR-SUEFIE!- ‘ENABLE ONTERRUPTS 
0056 366 UBASM”CR~BRIE !- 
0056 367 UBASM~CR-CNFIE!= 
0056 368 UBASM~CR-USEF IE! = 
0056 369 UBASM~CR~ IFSIE.= 
04 AG 50 0000007C B&F 0056 370 RO, UBASL_CR(R4) 
005€ 371 
OOsE (388 
00SE 384 108: 3NO SPECIAL INIT FOR 11/730 OR uVAX I 
05 O0dE 85 RSB ; 
008 8 : IGNORE UNEXPECTED UNIBUS INTERRUPTS 
00S5F 46 389 * 
GOS 30 .ALIGN LONG 
O60 36 UBASINTO:: : PASSIVE RELEASES THROUGH VECTOR 0 
00000000'9F D6 0060 394 INCL  a#10$GL_UBA_INTO : COUNT THEM 
00 11 06 ; BRB UBA_UNERINT~ : JOIN COMMON CODE, VECTORS ARE ALLIGNED 
$3 3S 
$8 399 
68 40 
6 401 
$8 408 
6 


ADPSUB790 -A APTE R SUBROUTINES FOR VAX 11/ bo0° 16-SEP=1 AX/VMS M V04- 
vOe “a IAL = CPU-DEPENDENT UNIBUS ADAPT g- Hiaets 80: ae: 9 SYSLOA.S REIA ADP yete RAR: 1 he (3) 
$88 
: ; FOR 780-L1K eRROCESSORS, RESTORE 
3F OBA i is POPR #°M<RO,R1,R2,R3,R4,R5> : san Vighed- wb tediaeens Meme 
02 006A 41 REI + IGNORE INTERRUPT 
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-SBTTL MASSBUS ADAPTER INTERRUPT DISPATCHER 


:+ 
; MBASINT = MASSBUS ADAPTER INTERRUPT DISPATCHER 
; rae fe ng 8 be IS ENTERED VIA_A_JSB_ INSTRUCTION WHEN AN “mamas OCCURS 


ASSBUS ADAPTER. THE STATE OF THE STACK ON ENTRY 
O(SP) = ADDRESS OF IDB ADDRESS. 
4(SP) = SAVED R2. 
(SP) = SAVED RS. 
12(SP) = SAVED R&. 
16(SP) = SAVED RS. 
: (SP) = INTERRUPT PC. 
4(SP) = INTERRUPT PSL. 
: INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
IF THE INTERRUPTING ADAPTER IS CURRENTLY OWNED AND THE OWNER UNIT 
1S EXPECT ING A N INTERRUPT, THEN THA 1 UNIT Is DISPATCHED FIRST. ALL 
OTHER UNITS ARE DISPATCHED BY READING THE ATTENTION SUMMARY REG- 
ISTER AND SCANNING FOR UNITS THAT HAVE ATTENTION SET. AS EACH UNIT 
1S FOUND, ITS ATTENTION’S SUMMARY BIT IS CLEARED AND THEN A TEST IS 
MADE TO DETERMINE IF AN INTERRUPT 1s EXPECTED ON THE UNIT. IF YES, 
THEN THE DRIVER IS CALLED AT ITS INTERRUPT RETURN ADDRESS. EL 
THE DRIVER IS CALLED AT ITS UNSOLICITED INTERRUPT ADDRESS. AS EACH 
CALL TO THE DRIVER RETURNS, THE ATTENTION SUMMARY REGISTER IS RE- 
READ AND AN ATTEMPT IS MADE TO FIND ANOTHER UNIT TO BiePaTCH WHEN 
NO UNITS REQUESTING ATTENTION REMAIN, THE INTERRUPT 1S DISMISSED 
448 .ALIGN LONG 
289 MBASINT: : :MASSBUS ADAPTER INTERRUPT DISPATCHER 
MOVL a (SP),R3 [GET ADDRESS OF 
MOVL  § IDB$L_CSR(R3),R4 :GET ADDRESS OF CONFIGURATION STATUS REGISTE 
BITL  #MBASM_CSR_PD,- 
MBASL~CSRTR4S :CHECK FOR MBA POWER DOWN 
BNEQ 45$ :BRANCH IF POWERFAIL 
MOVL 1DBSL_ OWNER(R3) .R5 3GET OWNER UNIT UCB ADDRESS 
BEQL 0$ L NO OWN 
MOVZBL UCBS$B_SLAVE(RS) ,R2 {GET OUNER SLAVE CONTROLLER NUMBER 
BBS #UCBS0_INT,UCBSW_STS(RS).20$ ;IF SET INTERRUPT EXPECTED 
MOVL  acSP), :RETR TRIEVE ADDRES 1DB 
MOVL  IDBSL’CSR(R3),R4 RETRIEVE MBA EOnF TGURAT ION REGISTER ADDRESS 
MCOML #0, MBASL_SR(R4) [CLEAR ALL MBA STATUS BITS 
MOVL ASE ASTRG) Re TREAD ATTENTION SUMMARY REGISTER 
FFS #0,#8>R2,R2 [FIND FIRST UNIT REQUESTING ATTENTION 
BNEQ 208 [IF NEQ UNIT FOUND 
ADDL 4#4,SP SREMOVE IDB ADDRESS FROM STACK 
mova (SB)+ .R2 SRESTORE REGISTERS 
nova (SP)+-R : 
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11/490 -SEP=1984 00:58:05 VAX/VMS Macro v04-00 Page 11 
ATCHER —- ScSEPo}O8G BosOe see LOT eS Meet e ttt OO ast - 
1pB$, UCBLST(R3)CR2J,R5 ;GET ADDRESS OF UCB OR INTERRUPT DISPATCHER 
RS, 408 SIF LBS INTERRUPT DISPATCHER FOR MULTI- 
: DEVICE CONTROLLER 
R2.#1,MBASL_AS(R4) [CLEAR ATTENTION SUMMARY BIT 
R [SEE IF UCB DEFINED 
10$ iT EQL NONE DEFINED 
#UCBSV_INT YCBSy_STS(RS), O$ :IF CLR, INTERRUPT NOT EXPECTED 
ucest FR3(R5) RS SRESTORE DRIVER CONTEXT 
auc C_FPC(RSS 'CALL DRIVER AT INTERRUPT RETURN ADDRESS 
UCBsL DDT(RS) ,R3 :GET ADDRESS OF DDT 
appt C_UNSOLINT(R3) [CALL UNSOLICITED INTERRUPT ROUTINE 
-(SP) ;READ CURRENT PSL 
rt lb ;CALL SLAVE CONTROLLER INTERRUPT DISPATCHER 


IN CASE OF ADAPTER POWER DOWN BIT ASSERTED, RETRIEVE ADP ADDRESS AND JUMP 
TO ADAPTER ERROR ROUTINE IN SYSLOA780. 
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IDB$L poe (eS). R4 GET ADP ADDRESS 
EXESRA780_1 ; JUMP TO ERROR ROUTINE 


ADPSUB790 = ADAPTER SUBROUTINES FOR VAX 1i/}90° 16-SEP=1 8: AX/VMS Macro V04-00 Page 1 P 
1042000 MASSBUS ADAPTER TAT iALGzay TION g- Sp. 1382 82: M3 93 SYSLOA. SRCJADPSUB.MAR; 1 . (8) Vb4 
ES 3 2 .SBTTL MASSBUS ADAPTER INITIALIZATION 
E4 4 ; MBASINITIAL = MASSBUS ADAPTER INITIALIZATION 
E4 3 : THIS ROUTINE IS CALLED VIA A JSB INSTRUCT! T SYSTEM STARTUP AND AFTER 
E4 4 > A POWER RECOVERY RESTART TO ALLOW INITIAL] ATION OF MASSBUS ADAPTERS. 
EA 4 : INPUTS: 
E4544: R4 = CSR ADDRESS OF MASSBUS ADAPTER. 
E4 45 : RS = ADDRESS OF ADAPTER IDB. 
E4 ¢} ; ALL INTERRUPTS ARE LOCKED OUT. 
Oe ‘3 $ OUTPUTS: 
ae i : THE MASSBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 
e4 553° 
Oe 34 MBASINITIAL:: ;MASSBUS ADAPTER INITIALIZATION 
01 00 ages 38 MOVL #MBASM_CR_INIT,- 
04 AS OE6 55 phe ASL =ERTRA) s INITIALIZE MASSBUS ADAPTER 
04 D0 O00E 360 MOVL #MBASM"CR_IE,- 
04 AG OEA 61 MBASL~ “ERTRES ;ENABLE INTERRUPTS 
0S O0EC oes RSB 


ADPSUB790 = ADAPTER SUBROUTINES FOR VAX 11/490° SEP=1984 00:58:05 VAX/VMS Macro v06-00 Pose 1 
7042000 INISMPMADP = BUILD ADP AND INITIALIZE MU SeSEPo19BG Oosdciee FeyeVGa.caeiapboeegar:1 rae | 


-SBTTL INISMPMADP = BUILD ADP AND INITIALIZE MULTI-PORT MEMORY 


; 1 kta A S CALLED AFTER MAPPING THE REGISTERS FOR A MULTI-PORT 
MEMORY PTER. AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. 
; THE NARDUARE ADAPTER IS THEN INITIALIZED BY CALLING MPMSINITIAL. 


; NOTE: THIS ROUTINE HAS BEEN LOCATED HERE IN SYSLOAXXX.EXE wig tT OF 
; INILOA.EXE BECAUSE IT CAN BE CALLED W WHILE THE SYSTEM IS RUNNING 
LONG AFTER INILOA.EXE HAS BEEN DELETED! {1 


; INPUT: 
; R4 = nexus identification number of this nexus 


; OUTPUTS: 
ALL REGISTERS PRESERVED 


00000010 NUMMPMV'EC = 16 ; NUMBER OF INTER-PORT INTERRUPT VECTORS 
INISMPMADP: : ; INITIALIZE MPM DATA STRUCTURES 
05 RSB ; DUMMY ENTRY FOR SYSGEN 
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«SBTTL MASINITIAL = INITIALIZE MULTI-PORT MEMORY ADAPTER 


; MPMSINITIAL - INITIALIZE MULTI-PORT MEMORY ADAPTER 
: THIS ROUTINE [S$ CALLED AT sysTen INTIALIZATION AND AFTER A POWER 
RECOVERY RESTART T eit ITIALIZE THE PORT ADAPTER BY CLEARING ANY 
ERRORS AND ENABLING ALL INTERRUPTS. 
INPUTS: 

R4 = ADDR OF ADAPTER CSR. 

IPL = 31 
OUPUTS: 


ANY ERRORS IN PORT ARE CLEARED AND ALL INTERRUPTS ARE ENABLED. 


MASINITIAL:: ; INTIALIZE PORT 
RSB 


SYSLOA.SRCJADPSUB.MAR; 1 
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-SBTTL INTER=PROCESSOR REQUEST HANDLER 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED BY A DRIVER OR AN EXEC FUNCTION TO 
EITHER SEND A REQUEST TO OR JUST gl ne ga ANOTHER PROCESSOR 
THAT IS CONNECTED TO A PORT OF THE MULTIPORT MEMORY. 


+ i ADAPTER CONTROL BLOCK AD 


IF LSS 0 = ADDRESS OF A TO USE IF REQUEST 


R TO JUST INTERRUPT. 


or x 


OUTPUTS: 
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MASREQUEST: : ; REQUEST HANDLER 
RSB 
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A FORK BLOCK ADDRESS IT WILL 
C F T FAIL 

: LtER” 
FORK BLOCK BLOCK WILL BE INSER 


IF A REQUEST BLOCK. Is ALLOCATED S$ 
RETURN TO THE CALLER VIA A CO-ROU 
FILL=IN THE REQUEST BLOCK. 


THE CALLER WILL THEN PERFORM reg CO-ROUTINE CALL TO RETURN 
$ E SO THE BLOCK CAN BE ere se IN THE DESIRED 

TER=PROCESSOR vaeQUesT UEVE. IF IT IS THE 

IN THE QUEUE AN INTER-PORT INTERRUPT WILL 

TED TO WAKE-UP THE DISPATCHER ON THE PORT. 


ESSFULLY, CONTROL WILL 
— CALL SO THE CALLER CAN 


cm - 
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H_ A PORT ary INSTEAD OF A 
UST REQUEST AN INTERRUPT FOR 
RMINE. GHAT" 


ae 
az 


I THEN UP TO THE 
WHAT THE INTERRUPT WAS 


RO = SUCCESS OR FAILURE OF OPERATION. THIS SHOULD BE CHECKED 
BY THE CALLER BOTH TIMES THIS ROUTINE RETURNS. 


R3,R4,R5 ARE PRESERVED. 
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ADPSUB790 = ADAPT x4 
¥O4=000 RT 
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SEP-1984 00:58: AX/VMS Macro Vv04-00 Pa 16 
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-SBTTL REPORT RESOURCE AVAILABILITY TO INTERESTED PORTS 


ra 
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FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED TO REPORT TO ANY PROCESSORS THAT A RESOURCE 
HAS BEEN MADE AVAILABLE. 


INPUTS: 


RO = RESOURCE NUMBER OF RESOURCE MADE AVAILABLE. 
Ril = SHARED MEMORY CONTROL BLOCK (SHB) ADDRESS. 


OUTPUTS: 


ANY PROCESSORS WAITING FOR THE SPE 
TO NOTIFY THEM THE RESOURCE IS AVA 


RO,R1,R2,R3 ARE NOT PRESERVED. 


CIFIED RESOURCE ARE INTERRUPTED 
ILABLE 
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MASRAVAIL:: 
RSB 
~END 
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ADPSUB790 - ADAPTER SUBROUTINES FOR VAX 11/590 1 = seen 138 


0:58: AX/VMS ae v04-0 ° 1 
Psect synopsis <SEP=1 99: 38:08 cro 0 age 18 


SYSLOA.S RCIA ADPSUB.MAR; 1 (6) 


! Psect synopsis ! 


$m moore woe e meena eat$ 


PSECT name Allocation PSECT No. Attributes 

. . tt! ( - 0 ( 0.) NOPIC USR CON ABS LCL wos NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000 ( -) O17 ¢ +1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SYSLOA OOOOOOF1 . 2461.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


$oenece een ene creas eanancae $ 


! \"Pertormance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00 :90:0 98 00:00:0 43 
Syias Le RRM SR 
Fs table sort 9 9:00:0 7 0:00:07.70 
Pass 2 11 0:00:02. : Ba: 0:10.56 
Symbol table output 8 820838 0 0: 808 8g 
Psect synopsis output § Bg: 0:00.01 O8: 0:00.53 
Cross-reference output Ss at a 4 8 30008 - OY 
Assembler run totals 624 00:00:19. 00:01:18.9 


The working set Limit was 1950 pages. 
131956 bytes (258 pages) of virtual memory weve used to buffer the intermediate code. 
There were 110 pages of symbol table space oon | to hold 2138 non-local and 6 local symbols. 
1179 source Lines were read in Pass 1, produci hid 3 object records in Pass 2. 
pages of virtual memory were used to define 37 macros. 


Sao wen een ane eee nero mon t 


Macro Library name Macros defined 
$255$DUA :ESYSLOA. ia mee -MLB;1 Q 
SSege0UA 1 2 

5SSDUA ESYSLIBISTARLET. MLB;2 

Terie (all libraries) 32 


2215 GETS were required to define 32 macros. 
There were no errors, warnings or iiformation messages. 
MACRO/LIS=L1S$:ADPSUB790/0BJ=0B/J$:ADPSUB790 MSRC$:CPUSW790/UPDATE=(ENHS: CPUSW790) +MSRC$ : ADPSUB/UPDATE=(ENH$ : ADPSUB) +EXECML$/LIB+LIBS 
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